home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 3.st / CINIT.ARC / PRGACC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-15  |  10.6 KB  |  424 lines
  1. /***************************************
  2.     program/accessory example 
  3.     by Samuel Streeper
  4.     Copyright 1989 Antic Publishing
  5. ***************************************/
  6. extern int _app, gl_apid;
  7.  
  8. #include <obdefs.h>
  9. #include <gemdefs.h>
  10. #include <osbind.h>
  11.  
  12. #define NO_WINDOW (-1)
  13. #define TRUE 1
  14. #define FALSE 0
  15. #define WTYPE (NAME | CLOSER | MOVER)
  16.  
  17. typedef struct { int x, y, w, h; } Rect;
  18.  
  19. /********************************************************
  20. *    menubar[] is the gem menubar structure dumped from    *
  21. *    the resource file into a C structure using rscdump.    *
  22. *    It is an array of GEM objects which are indexed        *
  23. *    from zero through (n-1) where n is the number of    *
  24. *    objects in the menubar tree. The following #defines    *
  25. *    are taken from the 'prgacc.h' file generated by        *
  26. *    the resource construction program and correspond    *
  27. *    to the choices available in the pull down menus.    *
  28. ********************************************************/
  29.  
  30. #define ABOUT 7
  31. #define IN_VID 16
  32. #define RING_BELL 17
  33. #define QUIT 18
  34.  
  35. OBJECT menubar[] = {
  36. -1,1,5,G_IBOX,0,0,0x0L,0,0,80,25,
  37. 5,2,2,G_BOX,0,0,0x1100L,0,0,80,513,
  38. 1,3,4,G_IBOX,0,0,0x0L,2,0,12,769,
  39. 4,-1,-1,G_TITLE,0,0," Desk ",0,0,6,769,
  40. 2,-1,-1,G_TITLE,0,0," File ",6,0,6,769,
  41. 0,6,15,G_IBOX,0,0,0x0L,0,769,80,19,
  42. 15,7,14,G_BOX,0,0,0xff1100L,2,0,20,8,
  43. 8,-1,-1,G_STRING,0,0,"  About Prgacc...",0,0,20,1,
  44. 9,-1,-1,G_STRING,0,0x8,"--------------------",0,1,20,1,
  45. 10,-1,-1,G_STRING,0,0,"1",0,2,20,1,
  46. 11,-1,-1,G_STRING,0,0,"2",0,3,20,1,
  47. 12,-1,-1,G_STRING,0,0,"3",0,4,20,1,
  48. 13,-1,-1,G_STRING,0,0,"4",0,5,20,1,
  49. 14,-1,-1,G_STRING,0,0,"5",0,6,20,1,
  50. 6,-1,-1,G_STRING,0,0,"6",0,7,20,1,
  51. 5,16,18,G_BOX,0,0,0xff1100L,8,0,17,3,
  52. 17,-1,-1,G_STRING,0,0,"  Inverse Video",0,0,17,1,
  53. 18,-1,-1,G_STRING,0,0,"  Ring Bell",0,1,17,1,
  54. 15,-1,-1,G_STRING,0x20,0,"  Quit       ",0,2,17,1
  55.     };
  56.  
  57.  
  58. /********************************************************
  59. *    dialbox[] is the dialog box object array .    This    *
  60. *    dialog box will be fitted inside a window when the    *
  61. *    program runs. The following #define's correspond    *
  62. *    to the two buttons in the dialog.                    *
  63. ********************************************************/
  64. TEDINFO ted0 = {
  65.     0L,                    /* our string will go here */
  66.     "",
  67.     "",
  68.     5, 6, 2, 0x1180, 0, 0, 18, 1        };
  69.  
  70. #define BTN_INVID 5
  71. #define BTN_BELL 6
  72. #define YESNO 8
  73. #define MSG 9
  74.  
  75. OBJECT dialbox[] = {
  76. -1,1,1,G_BOX,0,0x10,0x1142L,0,0,34,19,
  77. 0,2,9,G_BOX,0,0,0xff1100L,2,1,30,17,
  78. 3,-1,-1,G_STRING,0,0,"Program/Accessory Example",2,1,25,1,
  79. 4,-1,-1,G_STRING,0,0,"by Samuel Streeper",6,2,15,1,
  80. 5,-1,-1,G_STRING,0,0,"© 1989 Antic Publishing",3,3,15,1,
  81. 6,-1,-1,G_BUTTON,0x45,0,"Inverse Video",6,5,16,3,
  82. 7,-1,-1,G_BUTTON,0x45,0,"Ring Bell",6,9,16,3,
  83. 8,-1,-1,G_STRING,0,0,"Yes/No Toggle",3,14,13,1,
  84. 9,-1,-1,G_BUTTON,0x1,1,0L,18,14,8,1,    /* substitute our string here */
  85. 1,-1,-1,G_BOXTEXT,0x20,0,&ted0,3,15,13,1,
  86.     };
  87.  
  88.  
  89. /********************************************************
  90. *    The following #define's are useful in hiding much    *
  91. *    of the details required to do things like center    *
  92. *    a dialog box using GEM's form_center calls and such.*
  93. *    Using register pointers to dereference objects        *
  94. *    yields _much_ smaller code.                            *
  95. *                                                        *
  96. *    The code for putting an object within a window        *
  97. *    was borrowed and modified from an example by        *
  98. *    John Jainshigg.                                        *
  99. ********************************************************/
  100.  
  101. #define BOXX    boxp->ob_x
  102. #define BOXY    boxp->ob_y
  103. #define BOXW    boxp->ob_width
  104. #define BOXH    boxp->ob_height
  105. #define BOXRECT        BOXX,BOXY,BOXW,BOXH
  106. #define BOXPRECT    &BOXX,&BOXY,&BOXW,&BOXH
  107.  
  108. #define WRECT    w.x,w.y,w.w,w.h
  109. #define WPRECT    &w.x,&w.y,&w.w,&w.h
  110. #define TRECT    t.x,t.y,t.w,t.h
  111. #define TPRECT    &t.x,&t.y,&t.w,&t.h
  112.  
  113. int menu_id;
  114. int love = TRUE;        /* why not? */
  115.  
  116. /* Assign char pointers to commonly used strings to save space */
  117. /* Otherwise non-optimizing compiler will generate many identical strings! */
  118. char *yes_str = "Yes", *no_str = "No";
  119. char *loves_me = "She loves me!";
  120. char *loves_not = "She loves me not!";
  121.  
  122. main()
  123. {
  124.     appl_init();
  125.  
  126.     ted0.te_ptext = loves_me;
  127.     dialbox[YESNO].ob_spec = yes_str;
  128.  
  129.     /* If we are run as an application, put up menubar */
  130.  
  131.     if (_app)
  132.     {
  133.         convert_resource(menubar);
  134.         menu_bar(menubar, 1);
  135.         graf_mouse(0,0L);
  136.     }
  137.  
  138.     /* otherwise we are being run as an accessory,
  139.      * register our name in the Desk menu.
  140.      * memo: call menu_register before doing much with
  141.      * the aes, or we may not be in the menu the first time
  142.      * the desktop is drawn.
  143.      */
  144.  
  145.     else menu_id = menu_register(gl_apid,"  Prgacc");
  146.  
  147.     /* Convert the dialog box from character coordinates to 
  148.      * pixel coordinates.
  149.      */
  150.  
  151.     convert_resource(dialbox);
  152.  
  153.     /* Now we go to the event loop */
  154.  
  155.     multi();
  156.  
  157.     /* a desk accessory never returns from the event loop, but
  158.      * the program will.
  159.      */
  160.  
  161.     menu_bar(menubar, 0);
  162.     appl_exit();
  163. }
  164.  
  165. multi()
  166. {
  167.     register OBJECT *boxp = &dialbox[0], *obp;
  168.     int event,mx,my,dummy,message[8];
  169.     int quit_flag = FALSE;
  170.     Rect w,t,t2;
  171.     int win = NO_WINDOW;
  172.     int obj;
  173.     int xd,yd;
  174.  
  175.     /* Figure out size of window required to hold dialog box
  176.      */
  177.  
  178.     form_center(boxp,BOXPRECT);
  179.     wind_calc(0,WTYPE,BOXRECT,WPRECT);
  180.     xd = BOXX - w.x; yd = BOXY - w.y;
  181.  
  182.     /* Program opens window when run, but accessory will wait for
  183.      * window open request.
  184.      */
  185.  
  186.     if (_app)
  187.     {
  188.         if ((win = wind_create(WTYPE,WRECT)) < 0)
  189.             return;                /* no available windows. Bummer. */
  190.  
  191.         wind_set(win,WF_NAME," Oot! ",0,0);
  192.         wind_open(win,WRECT);
  193.     }
  194.  
  195.     /* Accessory loops forever, program loops until user quits.
  196.      */
  197.  
  198.     while (!_app || !quit_flag)
  199.     {
  200.         event = evnt_multi(MU_BUTTON | MU_MESAG,1,1,1,
  201.             0,0,0,0,0,0,0,0,0,0,message,0,0,&mx,&my,
  202.             &dummy,&dummy,&dummy,&dummy);
  203.  
  204.         if (event & MU_MESAG) switch(message[0])
  205.         {
  206.             /* Menu selected message, program only */
  207.             case MN_SELECTED:
  208.             {    switch(message[4] )
  209.                 {
  210.                     case ABOUT:        about();
  211.                         break;
  212.                     case IN_VID:    invid();
  213.                         break;
  214.                     case RING_BELL:    bell();
  215.                         break;
  216.                     case QUIT:        quit_flag = TRUE;
  217.                         break;
  218.                 }
  219.                 menu_tnormal(menubar, message[3], TRUE );
  220.             }
  221.  
  222.             /* Accessory open message, accessory only */
  223.             case(AC_OPEN):
  224.                 if (message[4] == menu_id)
  225.                 {
  226.                     if (win == NO_WINDOW)
  227.                     {
  228.                         if ((win = wind_create(WTYPE,WRECT)) < 0)
  229.                         {    /* no available windows. Bummer. */
  230.                             win = NO_WINDOW;
  231.                             break;
  232.                         }
  233.  
  234.                         wind_set(win,WF_NAME," Oot! ",0,0);
  235.                         wind_open(win,WRECT);
  236.                     }
  237.                     else wind_set(win,WF_TOP,0,0,0,0);
  238.                 }
  239.                 break;
  240.  
  241.             /* Accessory close message, accessory only */
  242.             case(AC_CLOSE):
  243.                 if (message[3] == menu_id) win = NO_WINDOW;
  244.                 break;
  245.  
  246.             /* Program or accessory may receive window messages */
  247.             case(WM_CLOSED):
  248.                 wind_close(win);
  249.                 wind_delete(win);
  250.                 win = NO_WINDOW;
  251.                 quit_flag = TRUE;
  252.                 break;
  253.             case(WM_MOVED):
  254.                 w.x = message[4];
  255.                 w.y = message[5];
  256.                 BOXX = w.x + xd;
  257.                 BOXY = w.y + yd;
  258.                 wind_set(win,WF_CURRXYWH,WRECT);
  259.                 break;
  260.             case(WM_TOPPED):
  261.             case(WM_NEWTOP):
  262.                 wind_set(win,WF_TOP,0,0,0,0);
  263.                 break;
  264.             case(WM_REDRAW):
  265.                 wind_update(BEG_UPDATE);
  266.                 graf_mouse(M_OFF,0L);
  267.                 t2.x=message[4];
  268.                 t2.y=message[5];
  269.                 t2.w=message[6];
  270.                 t2.h=message[7];
  271.                 wind_get(win,WF_FIRSTXYWH,TPRECT);
  272.  
  273.                 /* To redraw, walk the rectangle list */
  274.                 while (t.w && t.h)
  275.                 {
  276.                     if (rc_intersect(&t2,&t))
  277.                         objc_draw(boxp,0,3,TRECT);
  278.                     wind_get(win,WF_NEXTXYWH,TPRECT);
  279.                 }
  280.                 graf_mouse(M_ON,0L);
  281.                 wind_update(END_UPDATE);
  282.         }
  283.  
  284.         if (event & MU_BUTTON)
  285.         {
  286.             /* We got a button event, see if it happened over
  287.              * an object I am interested in...
  288.              */
  289.  
  290.             obj = objc_find(boxp,0,10,mx,my);
  291.             if (obj == BTN_INVID || obj == BTN_BELL)    /* the buttons */
  292.             {
  293.                 /* Select the button */
  294.                 objc_change(boxp,obj,0,BOXRECT,SELECTED,1);
  295.  
  296.                 /* act upon it */
  297.                 do_choice(obj);
  298.  
  299.                 /* Deselect the button */
  300.                 objc_change(boxp,obj,0,BOXRECT,NORMAL,1);
  301.             }
  302.  
  303.             else if (obj == YESNO)                        /* the toggle */
  304.             {
  305.                 obp = &dialbox[YESNO];
  306.                 love = !love;
  307.                 if (love)
  308.                 {    obp->ob_spec = yes_str;
  309.                     obp->ob_state |= SELECTED;
  310.                     ted0.te_ptext = loves_me;
  311.                 }
  312.                 else
  313.                 {    obp->ob_spec = no_str;
  314.                     obp->ob_state &= ~SELECTED;
  315.                     ted0.te_ptext = loves_not;
  316.                 }
  317.  
  318.                 /* really should clip these to screen coords... */
  319.                 objc_draw(dialbox,YESNO,3,0,0,32000,32000);
  320.                 objc_draw(dialbox,MSG,3,0,0,32000,32000);
  321.  
  322.                 wait_4_up();    /* wait for mouse button release */
  323.             }
  324.  
  325.         }
  326.     }
  327. }
  328.  
  329.  
  330. /****************************************************************
  331. *    Convert an object from character coordinates to pixel        *
  332. *    coordinates. Thus a box 1 character high will be changed    *
  333. *    to 8 pixels high on a color monitor, 16 pixels high on        *
  334. *    a monochrome monitor. If the object is already in            *
  335. *    character coordinates, you don't need to do this, but        *
  336. *    you may need to tweak the object for different                 *
  337. *    resolutions so that its aspect ratio does not change.        *
  338. ****************************************************************/
  339. convert_resource(p)
  340. register OBJECT *p;
  341. {    register OBJECT *p2 = p;
  342.     register int ndx = 0;
  343.  
  344.     for (;;)
  345.     {    rsrc_obfix(p,ndx);
  346.         if (p2->ob_flags & 0x20) break;
  347.         ndx++;
  348.         p2++;
  349.     }
  350. }
  351.  
  352. /************************************************
  353. *    A dispatch routine which takes appropriate    *
  354. *    for the selected dialog box button.            *
  355. ************************************************/
  356. do_choice(obj)
  357. {    switch(obj)
  358.     {    case BTN_INVID:    invid();
  359.             break;
  360.         case BTN_BELL:    bell();
  361.             break;
  362.         default:
  363.             break;
  364.     }
  365. }
  366.  
  367. /************************
  368. *    Ring the bell        *
  369. ************************/
  370. bell()
  371. {    register int i;
  372.     Cconws("\7");
  373.  
  374.     /* Now wait so that the button stays selected for a while */
  375.     for(i=0;i<10;i++) Vsync();
  376. }
  377.  
  378. /************************************************
  379. *    Flash the screen, leave the colors inverted    *
  380. ************************************************/
  381. invid()
  382. {    register int i;
  383.     for(i=0;i<5;i++)
  384.     {    Vsync();
  385.         Vsync();
  386.         Vsync();
  387.         invid2();
  388.     }
  389. }
  390.  
  391. /****************************************************
  392. *    invid2 takes care of inverting screen colors    *
  393. ****************************************************/
  394. invid2()
  395. {register int rez,temp;
  396.  register int reg2 = 3;
  397.  
  398.  rez = Getrez();
  399.  switch(rez)
  400.     {
  401.         case 0:
  402.             reg2 = 15;
  403.         case 1:
  404.             temp = Setcolor(0,-1);
  405.             Setcolor(0,Setcolor(reg2,-1));
  406.             Setcolor(reg2,temp);
  407.             break;
  408.         case 2:
  409.             Setcolor(0,((Setcolor(0,-1) & 0x777) == 0) ? 0x777 : 0);
  410.             break;
  411.     }
  412. }
  413.  
  414. about()
  415. {    form_alert(1,"[3][an alert box...][OK]");
  416. }
  417.  
  418. wait_4_up()
  419. {    int mx,my,button,keybd;
  420.  
  421.     do graf_mkstate(&mx,&my,&button,&keybd);
  422.         while (button & 1);
  423. }
  424.